home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Musica / ZMUD32.ZIP / ZMUD.EXE / 0 / RCDATA / TMACROD / TMACROD.txt
Text File  |  1997-06-09  |  19KB  |  672 lines
  1. object Macrod: TMacrod
  2.   Left = 264
  3.   Top = 150
  4.   HelpContext = 102
  5.   ActiveControl = OKBtn
  6.   BorderStyle = bsDialog
  7.   Caption = 'Macro Keys'
  8.   ClientHeight = 353
  9.   ClientWidth = 564
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = [fsBold]
  14.   ShowHint = True
  15.   OnActivate = FormActivate
  16.   OnClose = FormClose
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   OnDeactivate = FormDeactivate
  20.   OnShow = FormShow
  21.   PixelsPerInch = 96
  22.   TextHeight = 13
  23.   object Label7: TLabel
  24.     Left = 8
  25.     Top = 32
  26.     Width = 87
  27.     Height = 13
  28.     Caption = 'Stored Macros:'
  29.     Font.Color = clWindowText
  30.     Font.Height = -11
  31.     Font.Name = 'MS Sans Serif'
  32.     Font.Style = [fsBold]
  33.     ParentFont = False
  34.   end
  35.   object Label8: TLabel
  36.     Left = 8
  37.     Top = 48
  38.     Width = 156
  39.     Height = 13
  40.     Caption = 'Click on an macro below to edit it'
  41.     Font.Color = clWindowText
  42.     Font.Height = -11
  43.     Font.Name = 'MS Sans Serif'
  44.     Font.Style = []
  45.     ParentFont = False
  46.   end
  47.   object Image1: TImage
  48.     Left = 184
  49.     Top = 32
  50.     Width = 32
  51.     Height = 32
  52.     AutoSize = True
  53.   end
  54.   object Bevel1: TBevel
  55.     Left = 168
  56.     Top = 32
  57.     Width = 9
  58.     Height = 259
  59.     Shape = bsLeftLine
  60.   end
  61.   object Label3: TLabel
  62.     Left = 224
  63.     Top = 40
  64.     Width = 273
  65.     Height = 13
  66.     Caption = 'Macros allow you to assign a series of commands to a key'
  67.     Font.Color = clWindowText
  68.     Font.Height = -11
  69.     Font.Name = 'MS Sans Serif'
  70.     Font.Style = []
  71.     ParentFont = False
  72.   end
  73.   object Label4: TLabel
  74.     Left = 240
  75.     Top = 56
  76.     Width = 256
  77.     Height = 13
  78.     Caption = 'Edit the name of the key, or press the keyboard button'
  79.     Font.Color = clWindowText
  80.     Font.Height = -11
  81.     Font.Name = 'MS Sans Serif'
  82.     Font.Style = []
  83.     ParentFont = False
  84.   end
  85.   object Label5: TLabel
  86.     Left = 240
  87.     Top = 86
  88.     Width = 272
  89.     Height = 13
  90.     Caption = 'Enter the commands to be executed in the Command field'
  91.     Font.Color = clWindowText
  92.     Font.Height = -11
  93.     Font.Name = 'MS Sans Serif'
  94.     Font.Style = []
  95.     ParentFont = False
  96.   end
  97.   object AliasText: TLabel
  98.     Left = 244
  99.     Top = 194
  100.     Width = 21
  101.     Height = 13
  102.     Alignment = taRightJustify
  103.     Caption = 'Key:'
  104.     Font.Color = clWindowText
  105.     Font.Height = -11
  106.     Font.Name = 'MS Sans Serif'
  107.     Font.Style = []
  108.     ParentFont = False
  109.   end
  110.   object ComText: TLabel
  111.     Left = 210
  112.     Top = 218
  113.     Width = 55
  114.     Height = 13
  115.     Alignment = taRightJustify
  116.     Caption = 'Commands:'
  117.     Font.Color = clWindowText
  118.     Font.Height = -11
  119.     Font.Name = 'MS Sans Serif'
  120.     Font.Style = []
  121.     ParentFont = False
  122.   end
  123.   object Label1: TLabel
  124.     Left = 256
  125.     Top = 70
  126.     Width = 128
  127.     Height = 13
  128.     Caption = 'to select a key interactively'
  129.     Font.Color = clWindowText
  130.     Font.Height = -11
  131.     Font.Name = 'MS Sans Serif'
  132.     Font.Style = []
  133.     ParentFont = False
  134.   end
  135.   object SpeedButton1: TSpeedButton
  136.     Left = 358
  137.     Top = 192
  138.     Width = 20
  139.     Height = 20
  140.     Hint = 'Select a key for the macro'
  141.     Glyph.Data = {
  142.       10010000424D1001000000000000760000002800000010000000100000000100
  143.       0400000000008000000000000000000000000000000000000000000000000000
  144.       80000080000000808000800000008000800080800000C0C0C000808080000000
  145.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  146.       333333333333333333333300000000000033300888888888800330F888888888
  147.       880330FF88888888880330FF77777777780330FF70770777780330FF70770777
  148.       780330FF70000777780330FF70770777780330FF770077777803300F77777777
  149.       7003330000000000003333333333333333333333333333333333000000000000
  150.       0000000000000000000000000000000000000000}
  151.     OnClick = SpeedButton1Click
  152.   end
  153.   object HelpTxt: TLabel
  154.     Left = 256
  155.     Top = 100
  156.     Width = 218
  157.     Height = 13
  158.     Caption = 'separate multiple commands with a ; character'
  159.     Font.Color = clWindowText
  160.     Font.Height = -11
  161.     Font.Name = 'MS Sans Serif'
  162.     Font.Style = []
  163.     ParentFont = False
  164.   end
  165.   object Label2: TLabel
  166.     Left = 8
  167.     Top = 62
  168.     Width = 120
  169.     Height = 13
  170.     Caption = 'Double click to execute it'
  171.     Font.Color = clWindowText
  172.     Font.Height = -11
  173.     Font.Name = 'MS Sans Serif'
  174.     Font.Style = []
  175.     ParentFont = False
  176.   end
  177.   object SpeedButton2: TSpeedButton
  178.     Left = 272
  179.     Top = 216
  180.     Width = 20
  181.     Height = 20
  182.     Hint = 'Edit command|'
  183.     Glyph.Data = {
  184.       78010000424D7801000000000000760000002800000020000000100000000100
  185.       04000000000000000000120B0000120B00000000000000000000000000000000
  186.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  187.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  188.       000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
  189.       00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
  190.       F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
  191.       0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
  192.       FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
  193.       FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
  194.       0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
  195.       00333377737FFFFF7733333033000000033333373377777773330000}
  196.     NumGlyphs = 2
  197.     OnClick = SpeedButton2Click
  198.   end
  199.   object Inh: TLabel
  200.     Left = 272
  201.     Top = 248
  202.     Width = 188
  203.     Height = 13
  204.     Caption = 'Inherited from parent settings file'
  205.     Font.Color = clRed
  206.     Font.Height = -11
  207.     Font.Name = 'MS Sans Serif'
  208.     Font.Style = [fsBold]
  209.     ParentFont = False
  210.     Visible = False
  211.   end
  212.   object Label6: TLabel
  213.     Left = 240
  214.     Top = 118
  215.     Width = 273
  216.     Height = 13
  217.     Caption = 'End commands with ~ to append to command line instead'
  218.     Font.Color = clWindowText
  219.     Font.Height = -11
  220.     Font.Name = 'MS Sans Serif'
  221.     Font.Style = []
  222.     ParentFont = False
  223.   end
  224.   object Label9: TLabel
  225.     Left = 256
  226.     Top = 132
  227.     Width = 156
  228.     Height = 13
  229.     Caption = 'of sending command to the MUD'
  230.     Font.Color = clWindowText
  231.     Font.Height = -11
  232.     Font.Name = 'MS Sans Serif'
  233.     Font.Style = []
  234.     ParentFont = False
  235.   end
  236.   object Label10: TLabel
  237.     Left = 240
  238.     Top = 150
  239.     Width = 268
  240.     Height = 13
  241.     Caption = 'Begin commands with ~ to append to command line and '
  242.     Font.Color = clWindowText
  243.     Font.Height = -11
  244.     Font.Name = 'MS Sans Serif'
  245.     Font.Style = []
  246.     ParentFont = False
  247.   end
  248.   object Label11: TLabel
  249.     Left = 256
  250.     Top = 164
  251.     Width = 154
  252.     Height = 13
  253.     Caption = 'send resulting command to MUD'
  254.     Font.Color = clWindowText
  255.     Font.Height = -11
  256.     Font.Name = 'MS Sans Serif'
  257.     Font.Style = []
  258.     ParentFont = False
  259.   end
  260.   object OKBtn: TBitBtn
  261.     Left = 320
  262.     Top = 300
  263.     Width = 77
  264.     Height = 27
  265.     Font.Color = clBtnText
  266.     Font.Height = -11
  267.     Font.Name = 'MS Sans Serif'
  268.     Font.Style = []
  269.     ParentFont = False
  270.     TabOrder = 0
  271.     OnClick = OKBtnClick
  272.     Kind = bkOK
  273.     Spacing = -1
  274.     IsControl = True
  275.   end
  276.   object CancelBtn: TBitBtn
  277.     Left = 402
  278.     Top = 300
  279.     Width = 77
  280.     Height = 27
  281.     Font.Color = clBtnText
  282.     Font.Height = -11
  283.     Font.Name = 'MS Sans Serif'
  284.     Font.Style = []
  285.     ParentFont = False
  286.     TabOrder = 1
  287.     OnClick = CancelBtnClick
  288.     Kind = bkCancel
  289.     Spacing = -1
  290.     IsControl = True
  291.   end
  292.   object HelpBtn: TBitBtn
  293.     Left = 484
  294.     Top = 300
  295.     Width = 77
  296.     Height = 27
  297.     HelpContext = 102
  298.     Font.Color = clBtnText
  299.     Font.Height = -11
  300.     Font.Name = 'MS Sans Serif'
  301.     Font.Style = []
  302.     ParentFont = False
  303.     TabOrder = 2
  304.     Kind = bkHelp
  305.     Spacing = -1
  306.     IsControl = True
  307.   end
  308.   object MacroList: TListBox
  309.     Left = 8
  310.     Top = 80
  311.     Width = 154
  312.     Height = 211
  313.     ExtendedSelect = False
  314.     Font.Color = clWindowText
  315.     Font.Height = -11
  316.     Font.Name = 'MS Sans Serif'
  317.     Font.Style = []
  318.     ItemHeight = 13
  319.     ParentFont = False
  320.     Sorted = True
  321.     TabOrder = 3
  322.     OnClick = MacroListClick
  323.     OnDblClick = MacroListDblClick
  324.     OnMouseDown = MacroListMouseDown
  325.   end
  326.   object NewBtn: TBitBtn
  327.     Left = 8
  328.     Top = 300
  329.     Width = 62
  330.     Height = 27
  331.     Hint = '|Create a new macro'
  332.     Caption = '&New'
  333.     Font.Color = clBtnText
  334.     Font.Height = -11
  335.     Font.Name = 'MS Sans Serif'
  336.     Font.Style = []
  337.     ParentFont = False
  338.     TabOrder = 4
  339.     OnClick = NewBtnClick
  340.     NumGlyphs = 2
  341.     Spacing = -1
  342.     IsControl = True
  343.   end
  344.   object KeyName: TEdit
  345.     Left = 272
  346.     Top = 192
  347.     Width = 81
  348.     Height = 21
  349.     Hint = '|Name of macro key'
  350.     AutoSize = False
  351.     Font.Color = clWindowText
  352.     Font.Height = -11
  353.     Font.Name = 'MS Sans Serif'
  354.     Font.Style = []
  355.     ParentFont = False
  356.     TabOrder = 5
  357.     OnChange = KeyNameChange
  358.   end
  359.   object KeyCom: TEdit
  360.     Left = 296
  361.     Top = 216
  362.     Width = 241
  363.     Height = 21
  364.     Hint = '|Commands to assign to the macro'
  365.     AutoSize = False
  366.     Font.Color = clWindowText
  367.     Font.Height = -11
  368.     Font.Name = 'MS Sans Serif'
  369.     Font.Style = []
  370.     ParentFont = False
  371.     TabOrder = 6
  372.     OnChange = KeyComChange
  373.   end
  374.   object Key: TEdit
  375.     Left = 392
  376.     Top = 192
  377.     Width = 81
  378.     Height = 21
  379.     AutoSize = False
  380.     Font.Color = clWindowText
  381.     Font.Height = -11
  382.     Font.Name = 'MS Sans Serif'
  383.     Font.Style = []
  384.     ParentFont = False
  385.     TabOrder = 7
  386.     Visible = False
  387.   end
  388.   object Panel2: TPanel
  389.     Left = 0
  390.     Top = 0
  391.     Width = 564
  392.     Height = 22
  393.     Align = alTop
  394.     BevelOuter = bvLowered
  395.     Caption = 'Panel1'
  396.     TabOrder = 8
  397.     object Panel3: TPanel
  398.       Left = 1
  399.       Top = 1
  400.       Width = 42
  401.       Height = 20
  402.       Align = alLeft
  403.       BevelOuter = bvNone
  404.       TabOrder = 0
  405.       object TopBtn: TSpeedButton
  406.         Left = 0
  407.         Top = 0
  408.         Width = 20
  409.         Height = 20
  410.         Hint = 'Keep on top|Forces this dialog to display on top of others'
  411.         AllowAllUp = True
  412.         GroupIndex = 1
  413.         NumGlyphs = 2
  414.         OnClick = TopBtnClick
  415.       end
  416.       object LoadBtn: TSpeedButton
  417.         Left = 20
  418.         Top = 0
  419.         Width = 20
  420.         Height = 20
  421.         Hint = 'Update for active MUD|Loads macros for current character window'
  422.         NumGlyphs = 2
  423.         OnClick = LoadBtnClick
  424.       end
  425.     end
  426.     object Panel4: TPanel
  427.       Left = 43
  428.       Top = 1
  429.       Width = 520
  430.       Height = 20
  431.       Align = alClient
  432.       BevelOuter = bvNone
  433.       TabOrder = 1
  434.       object BtnPanel5: TBtnPanel
  435.         Left = 0
  436.         Top = 0
  437.         Width = 64
  438.         Height = 20
  439.         BorderColor = clHighlight
  440.         Align = alLeft
  441.         BorderWidth = 1
  442.         Caption = 'Aliases'
  443.         Font.Color = clBtnText
  444.         Font.Height = -11
  445.         Font.Name = 'MS Sans Serif'
  446.         Font.Style = []
  447.         ParentFont = False
  448.         TabOrder = 0
  449.         OnClick = AliasBtnClick
  450.       end
  451.       object VarBtn: TBtnPanel
  452.         Left = 64
  453.         Top = 0
  454.         Width = 64
  455.         Height = 20
  456.         BorderColor = clHighlight
  457.         Align = alLeft
  458.         BorderWidth = 1
  459.         Caption = 'Variables'
  460.         Font.Color = clBtnText
  461.         Font.Height = -11
  462.         Font.Name = 'MS Sans Serif'
  463.         Font.Style = []
  464.         ParentFont = False
  465.         TabOrder = 1
  466.         OnClick = VarBtnClick
  467.       end
  468.       object MacroBtn: TBtnPanel
  469.         Left = 128
  470.         Top = 0
  471.         Width = 64
  472.         Height = 20
  473.         BorderColor = clHighlight
  474.         Align = alLeft
  475.         BorderWidth = 1
  476.         Caption = 'Macros'
  477.         Font.Color = clBtnText
  478.         Font.Height = -11
  479.         Font.Name = 'MS Sans Serif'
  480.         Font.Style = []
  481.         ParentFont = False
  482.         TabOrder = 2
  483.         OnClick = MacroBtnClick
  484.       end
  485.       object ButBtn: TBtnPanel
  486.         Left = 192
  487.         Top = 0
  488.         Width = 64
  489.         Height = 20
  490.         BorderColor = clHighlight
  491.         Align = alLeft
  492.         BorderWidth = 1
  493.         Caption = 'Buttons'
  494.         Font.Color = clBtnText
  495.         Font.Height = -11
  496.         Font.Name = 'MS Sans Serif'
  497.         Font.Style = []
  498.         ParentFont = False
  499.         TabOrder = 3
  500.         OnClick = ButBtnClick
  501.       end
  502.       object TrigBtn: TBtnPanel
  503.         Left = 256
  504.         Top = 0
  505.         Width = 64
  506.         Height = 20
  507.         BorderColor = clHighlight
  508.         Align = alLeft
  509.         BorderWidth = 1
  510.         Caption = 'Triggers'
  511.         Font.Color = clBtnText
  512.         Font.Height = -11
  513.         Font.Name = 'MS Sans Serif'
  514.         Font.Style = []
  515.         ParentFont = False
  516.         TabOrder = 4
  517.         OnClick = TrigBtnClick
  518.       end
  519.       object WalkBtn: TBtnPanel
  520.         Left = 320
  521.         Top = 0
  522.         Width = 88
  523.         Height = 20
  524.         BorderColor = clHighlight
  525.         Align = alLeft
  526.         BorderWidth = 1
  527.         Caption = 'Speedwalking'
  528.         Font.Color = clBtnText
  529.         Font.Height = -11
  530.         Font.Name = 'MS Sans Serif'
  531.         Font.Style = []
  532.         ParentFont = False
  533.         TabOrder = 5
  534.         OnClick = WalkBtnClick
  535.       end
  536.     end
  537.   end
  538.   object CopyBtn: TBitBtn
  539.     Left = 72
  540.     Top = 300
  541.     Width = 62
  542.     Height = 27
  543.     Hint = '|Make a copy of the currently selected macro'
  544.     Caption = '&Copy'
  545.     Font.Color = clBtnText
  546.     Font.Height = -11
  547.     Font.Name = 'MS Sans Serif'
  548.     Font.Style = []
  549.     ParentFont = False
  550.     TabOrder = 9
  551.     OnClick = CopyBtnClick
  552.     Glyph.Data = {
  553.       56070000424D5607000000000000360400002800000028000000140000000100
  554.       0800000000002003000000000000000000000000000000000000000000000000
  555.       80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
  556.       A600000000000000000000000000000000000000000000000000000000000000
  557.       0000000000000000000000000000000000000000000000000000000000000000
  558.       0000000000000000000000000000000000000000000000000000000000000000
  559.       0000000000000000000000000000000000000000000000000000000000000000
  560.       0000000000000000000000000000000000000000000000000000000000000000
  561.       0000000000000000000000000000000000000000000000000000000000000000
  562.       0000000000000000000000000000000000000000000000000000000000000000
  563.       0000000000000000000000000000000000000000000000000000000000000000
  564.       0000000000000000000000000000000000000000000000000000000000000000
  565.       0000000000000000000000000000000000000000000000000000000000000000
  566.       0000000000000000000000000000000000000000000000000000000000000000
  567.       0000000000000000000000000000000000000000000000000000000000000000
  568.       0000000000000000000000000000000000000000000000000000000000000000
  569.       0000000000000000000000000000000000000000000000000000000000000000
  570.       0000000000000000000000000000000000000000000000000000000000000000
  571.       0000000000000000000000000000000000000000000000000000000000000000
  572.       0000000000000000000000000000000000000000000000000000000000000000
  573.       0000000000000000000000000000000000000000000000000000000000000000
  574.       0000000000000000000000000000000000000000000000000000000000000000
  575.       0000000000000000000000000000000000000000000000000000000000000000
  576.       0000000000000000000000000000000000000000000000000000000000000000
  577.       0000000000000000000000000000000000000000000000000000000000000000
  578.       0000000000000000000000000000000000000000000000000000000000000000
  579.       0000000000000000000000000000000000000000000000000000000000000000
  580.       0000000000000000000000000000000000000000000000000000000000000000
  581.       0000000000000000000000000000000000000000000000000000000000000000
  582.       0000000000000000000000000000000000000000000000000000000000000000
  583.       0000000000000000000000000000000000000000000000000000000000000000
  584.       0000000000000000000000000000000000000000000000000000000000000000
  585.       000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  586.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
  587.       03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF
  588.       0303030303030303030000000000000000000003030303030303030303F8F8F8
  589.       F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303
  590.       0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF
  591.       FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303
  592.       0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF
  593.       03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03
  594.       FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303
  595.       F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF
  596.       FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF
  597.       FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF
  598.       0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03
  599.       0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303
  600.       F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF
  601.       0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF
  602.       FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303
  603.       0303030300FF070707070707FF0003030303030303030303F8FF030303030303
  604.       03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303
  605.       F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303
  606.       0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF
  607.       FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303
  608.       030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8
  609.       0303030303030303030303030303030303030303030303030303030303030303
  610.       0303030303030303030303030303030303030303030303030303030303030303
  611.       0303030303030303030303030303030303030303030303030303}
  612.     NumGlyphs = 2
  613.     Spacing = -1
  614.     IsControl = True
  615.   end
  616.   object DelBtn: TBitBtn
  617.     Left = 136
  618.     Top = 300
  619.     Width = 27
  620.     Height = 27
  621.     Hint = 'Delete macro'
  622.     TabOrder = 10
  623.     OnClick = DelBtnClick
  624.     NumGlyphs = 2
  625.     Spacing = -1
  626.     IsControl = True
  627.   end
  628.   object HelpPanel: TPanel
  629.     Left = 0
  630.     Top = 333
  631.     Width = 564
  632.     Height = 20
  633.     Align = alBottom
  634.     Alignment = taLeftJustify
  635.     BevelOuter = bvLowered
  636.     Font.Color = clWindowText
  637.     Font.Height = -11
  638.     Font.Name = 'MS Sans Serif'
  639.     Font.Style = []
  640.     ParentFont = False
  641.     TabOrder = 11
  642.   end
  643.   object PopupMenu1: TPopupMenu
  644.     Left = 184
  645.     Top = 256
  646.     object PopupMenu: TMenuItem
  647.       Caption = 'Execute'
  648.       ShortCut = 0
  649.       OnClick = MacroListDblClick
  650.     end
  651.     object N1: TMenuItem
  652.       Caption = '-'
  653.       ShortCut = 0
  654.     end
  655.     object New1: TMenuItem
  656.       Caption = 'New'
  657.       ShortCut = 0
  658.       OnClick = NewBtnClick
  659.     end
  660.     object Copy1: TMenuItem
  661.       Caption = 'Copy'
  662.       ShortCut = 0
  663.       OnClick = CopyBtnClick
  664.     end
  665.     object Delete1: TMenuItem
  666.       Caption = 'Delete'
  667.       ShortCut = 0
  668.       OnClick = DelBtnClick
  669.     end
  670.   end
  671. end
  672.